perm filename TEST1.SAI[1,BGB]2 blob
sn#094573 filedate 1974-04-04 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "TEST1"
C00004 ENDMK
C⊗;
BEGIN "TEST1"
DEFINE α="COMMENT";
DEFINE π="3.1415927";
REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;
INTEGER B1,B2,F,E,V,V0,T;
INTEGER WORLD,WINDOW,CAMERA;
MKUNIV;
B1 ← MKCUBE(4.0,1.0,2.0);
B2 ← MKCUBE(4.0,1.0,2.0);
TRANSLATE(B1,0,0,7);
GEODPY;INCHRW;
WHILE TRUE DO
BEGIN
ROTATE(B1,π/30,π/32,0);
ROTATE(B2,π/35,-π/40,0);
SHOW2(0,1);
END;
END "TEST1"; BGB 19 MARCH 1973.